home *** CD-ROM | disk | FTP | other *** search
/ Macromedia Multimedia Showcase 6.0 / Macromedia Multimedia Showcase v6.0 WIN-MAC (XMSH60CD)(Macromedia, Inc.)(1996).iso / pc / demosoft / freehand / data.5 / App / Usenglsh / Userprep / SmthRads.prp < prev    next >
Text File  |  1996-08-24  |  3KB  |  113 lines
  1. % Begin UserPrep file.
  2. %
  3. % File : Smthrads.prp
  4. % FreeHand 7 UserPrep file.
  5. %
  6. % UserPrep file for generating smooth graduated and radial fills for
  7. % FreeHand 7. This is intended for black and white printers 
  8. % with a resolution less than 900 dots per inch.
  9. % To enable this file, select it in the Print Setup dialog UserPrep popup,  
  10. % or set the preference in the Expert Input/Output options for
  11. % UserPrep to Smthrads.prp.
  12. % To verify that this is enabled, print to file, and look for 
  13. % Smthrads.prp in the print file. If you find this text, 
  14. % it is enabled.
  15. %
  16. % This UserPrep will have no effect on color printers, or imagesetters.
  17. % Version 1.1 Nov. 21, 1994
  18. % Copyright (C) Macromedia Inc. 1995, 1996  All rights reserved.
  19.  
  20. /indices8 64 string def
  21. currentfile indices8 readhexstring 
  22. 03 0D 34 3e 3c 2e 17 01 
  23. 0b 18 20 32 30 24 1d 09 
  24. 2b 21 19 12 10 1c 25 29 
  25. 3b 2d 14 04 06 0e 37 39 
  26. 3d 2f 16 00 02 0c 35 3f 
  27. 31 27 1f 08 0a 1a 23 33  
  28. 11 1e 26 28 2a 22 1b 13 
  29. 07 0f 36 38 3a 2c 15 05
  30. pop pop
  31.  
  32. /indices10 100 string def
  33. currentfile indices10 readhexstring 
  34. 03 0d 21 57 63 61 49 2b 1b 01
  35. 0b 11 3a 53 59 5b 47 40 1d 09
  36. 2f 39 38 32 26 24 36 3e 3f 2d
  37. 4e 44 30 1e 14 12 16 34 4c 50
  38. 5c 4a 28 18 06 04 0e 22 54 5e
  39.  
  40. 62 48 2a 1a 00 02 0c 20 56 60
  41. 5a 46 43 1c 08 0a 10 3d 52 58
  42. 25 37 41 42 2c 2e 3c 3b 33 27
  43. 13 17 35 4d 51 4f 45 31 1f 15
  44. 05 0f 23 55 5f 5d 4b 29 19 07
  45. pop pop
  46.  
  47. /indices12 144 string def
  48. currentfile indices12 readhexstring 
  49. 03 0d 21 63 75 83 89 8b 55 35 1b 01
  50. 0b 11 27 61 71 81 87 85 57 37 1d 09 
  51. 3d 3f 40 49 5f 5d 5b 59 4c 44 39 3b
  52.  
  53. 6c 6e 48 41 2e 2c 2a 28 45 4d 68 6a
  54. 7a 78 50 30 1e 14 12 16 24 66 72 7c
  55. 8e 8c 52 32 18 06 04 0e 22 64 76 7e
  56.  
  57. 88 8a 54 34 1a 00 02 0c 20 62 74 82
  58. 86 84 56 36 1c 08 0a 10 26 60 70 80
  59. 5a 58 4f 46 38 3a 3c 3e 42 4b 5e 5c
  60.  
  61. 2b 29 47 4e 69 6b 6d 6f 4a 43 2f 2d
  62. 13 17 25 67 73 7d 7b 79 51 31 1f 15
  63. 05 0f 23 65 77 7f 8f 8d 53 33 19 07
  64. pop pop
  65.  
  66. fhnumcolors 1 eq
  67. printerRes 900 le 
  68.  and {
  69.     printerRes 400 ge {
  70.         printerRes 500 ge 
  71.         { /screenSize 12 def /indices indices12 def }
  72.         { /screenSize 10 def /indices indices10 def } ifelse 
  73.     } {
  74.         /screenSize 8 def /indices indices8 def
  75.     } ifelse 
  76.     
  77.     /adjustscreen {
  78.          printerRes screenSize 2 mul div 0 
  79.         {         % x y
  80.             dup 0 gt {
  81.                         1 index 0 gt {-0.3} { -0.1} ifelse 
  82.                     }
  83.                     {
  84.                         1 index 0 gt { 0 } { -0.2} ifelse
  85.                     } ifelse
  86.             3 1 roll % factor x y        
  87.  
  88.             1 add screenSize mul cvi
  89.             dup screenSize ge {
  90.                 screenSize sub 
  91.             } if
  92.             exch
  93.             1 add screenSize mul cvi
  94.             dup screenSize ge {
  95.                 screenSize sub 
  96.             } if
  97.             exch
  98.             screenSize mul add
  99.             
  100.             indices exch get
  101.             exch sub
  102.             screenSize dup mul 1 add div
  103.             neg
  104.         }
  105.         setscreen
  106.     } bdf
  107.     adjustscreen
  108. } if
  109.  
  110. %
  111. % End UserPrep file
  112.  
  113.